home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / wash.rexx < prev   
OS/2 REXX Batch file  |  1993-05-13  |  484b  |  20 lines
  1. /* Wash.rexx -- Wash out Pic  */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. if pos('DigiPaint',show(ports))=0 then do
  5.   say "Can't find ToasterPaint!"
  6.   exit
  7. end
  8.  
  9. Address "DigiPaint"     /* Tell ARexx where commands go  */
  10.  
  11.  
  12. '8rgb' 255 255 255  /* White color */
  13. 'Pmco'          /* Colorize mode */
  14. 'Hvof'          /* Set to radial gradient off */
  15. 'Potv' $4000    /* Set transparency */
  16. 'Whsc'          /* Fill Whole Screen */
  17. 'Shco'          /* Render to composite out */
  18. exit
  19.  
  20.